home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / mail / imapperl.6 / imapperl / imap / msg.pl < prev    next >
Perl Script  |  1995-04-06  |  395b  |  44 lines
  1. package msg;
  2.  
  3.  
  4. $file = main'STDERR;
  5. $level = 1;
  6.  
  7.  
  8. sub level
  9. {
  10. local($m) = @_;
  11.  
  12.     $level = $m;
  13. }
  14.  
  15. sub msg
  16. {
  17. local($line) = @_;
  18.  
  19.     print $file "$line\n" unless ($level < 1);
  20. }
  21.  
  22. sub debug
  23. {
  24. local($line) = @_;
  25.  
  26.     print $file "debug: $line\n" unless ($level < 2);
  27. }
  28.  
  29. sub warn
  30. {
  31. local($line) = @_;
  32.  
  33.     print $file "warning: $line\n";
  34. }
  35.  
  36. sub error
  37. {
  38. local($line) = @_;
  39.  
  40.     print $file "error: $line\n";
  41. }
  42.  
  43. 1;
  44.